home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
program
/
ctlib100.zip
/
INSTALL.LZH
/
BSDVER60.INT
< prev
next >
Wrap
Text File
|
1996-10-12
|
2KB
|
71 lines
{**************************************************************************}
{* BitSoft Development, L.L.C. *}
{* Copyright (C) 1995, 1996 BitSoft Development, L.L.C. *}
{* All rights reserved. *}
{* Turbo Pascal 6.0 compatibility unit *}
{* Version 1.1.8 *}
{**************************************************************************}
unit BsdVer60;
interface
uses Objects, BsdTypes;
const
MaxPChar = Pred(MaxWord);
MaxTMemoryStream = 65528;
type
LongRec = record
Lo : Word;
Hi : Word;
end;
type
WordRec = record
Lo : Byte;
Hi : Byte;
end;
type
PChar = ^CharArray;
CharArray = array[0..MaxPChar] of Char;
type
PMemoryStream = ^TMemoryStream;
TMemoryStream = object(TStream)
constructor Init (ASize: Word);
destructor Done; virtual;
function GetPos: LongInt; virtual;
function GetSize : LongInt; virtual;
procedure Read (var Buf; Count: Word); virtual;
procedure Seek (Pos: LongInt); virtual;
procedure Write(var Buf; Count: Word); virtual;
private
Size : Word;
CurPos : Word;
Data : Pointer;
end; { TMemoryStream }
function StrComp (Str1, Str2 : PChar) : Integer;
function StrIComp (Str1, Str2 : PChar) : Integer;
procedure StrDispose (Str : PChar);
function StrLen (Str : PChar) : Word;
function StrNew (Str : PChar) : PChar;
function StrPas (Str : PChar) : String;
function StrRead (var S : TStream) : PChar;
procedure StrWrite (var S : TStream; Str : PChar);
implementation
end.